home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #12 / Amiga Plus CD - 2002 - No. 12.iso / Tools / Freeware / PerfectPaint / rexx / bridge / Host / TVPaint_Layer < prev    next >
Encoding:
Text File  |  2002-10-28  |  1.1 KB  |  68 lines
  1.  
  2. #ArexxPort
  3. rexx_TVPaint
  4. #END ArexxPort
  5.  
  6. #HostToFront
  7. address 'Perfect_Paint.1';pp_ScreenToFront "TVPaint*Display";address 'rexx_TVPaint'
  8. #END HostToFront
  9.  
  10. #HostLoadPicture
  11.  
  12. address 'Perfect_Paint.1'
  13.  
  14. pp_GetWidth
  15. pp_w=result
  16.  
  17. pp_GetHeight
  18. pp_h=result
  19.  
  20. address 'rexx_TVPaint'
  21. options results
  22.  
  23. tv_GetWidth
  24. tv_w=result
  25.  
  26. tv_GetHeight
  27. tv_h=result
  28.  
  29. if tv_w=pp_w & tv_h=pp_h then
  30.         do
  31.             tv_request "Chargement dans le layer A ?"
  32.             if result=1 then tv_layerset 1
  33.                else
  34.                    do
  35.                     tv_request "Chargement dans le layer B ?"
  36.                     if result=1 then tv_layerset 2
  37.                        else tv_layerset 3
  38.                           
  39.                   end
  40.          tv_loadlayer Picture
  41.          end
  42.          else tv_LoadBrush Picture
  43.  
  44. #END HostLoadPicture
  45.  
  46.  
  47. #HostSavePicture
  48. tv_SaveMode 'ILBM'
  49. tv_SaveDisplay Picture
  50. #END HostSavePicture
  51.  
  52. #HostLoadBrush
  53. tv_LoadBrush Brush
  54. #END HostLoadBrush
  55.  
  56. #HostSaveBrush
  57. tv_SaveMode 'ILBM'
  58. tv_SaveBrush Brush
  59. #END HostSaveBrush
  60.  
  61. #HostLoadPalette
  62. 0
  63. #END HostLoadPalette
  64.  
  65. #HostSavePalette
  66. 0
  67. #END HostSavePalette
  68.